Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/timetrak/printsel.frm

Text File | 1995-09-06 | 3KB | 128 lines

VERSION 2.00
Begin Form printselect
   BackColor       =   &H0000FFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Print Selection"
   ClientHeight    =   2910
   ClientLeft      =   2700
   ClientTop       =   2820
   ClientWidth     =   2280
   ControlBox      =   0   'False
   ForeColor       =   &H00808000&
   Height          =   3315
   Left            =   2640
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   ScaleHeight     =   2910
   ScaleWidth      =   2280
   Top             =   2475
   Width           =   2400
   Begin CommandButton canbtn
      Caption         =   "Cancel"
      Height          =   555
      Left            =   1260
      TabIndex        =   7
      Top             =   2250
      Width           =   870
   End
   Begin CommandButton okbtn
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   555
      Left            =   180
      TabIndex        =   6
      Top             =   2250
      Width           =   915
   End
   Begin Frame Frame2
      BackColor       =   &H0000FFFF&
      Caption         =   "Print"
      Height          =   915
      Left            =   135
      TabIndex        =   1
      Top             =   1215
      Width           =   1995
      Begin OptionButton scrsel
         BackColor       =   &H0000FFFF&
         Caption         =   "Screen"
         ForeColor       =   &H00C00000&
         Height          =   240
         Left            =   45
         TabIndex        =   4
         Top             =   405
         Width           =   915
      End
      Begin OptionButton prtsel
         BackColor       =   &H0000FFFF&
         Caption         =   "Printer"
         ForeColor       =   &H00C00000&
         Height          =   330
         Left            =   1035
         TabIndex        =   5
         Top             =   360
         Width           =   915
      End
   End
   Begin Frame Frame1
      BackColor       =   &H0000FFFF&
      Caption         =   "Project"
      Height          =   915
      Left            =   135
      TabIndex        =   0
      Top             =   90
      Width           =   1995
      Begin OptionButton oneproj
         BackColor       =   &H0000FFFF&
         Caption         =   "One"
         ForeColor       =   &H00C00000&
         Height          =   240
         Left            =   225
         TabIndex        =   2
         Top             =   450
         Width           =   690
      End
      Begin OptionButton allproj
         BackColor       =   &H0000FFFF&
         Caption         =   "All"
         ForeColor       =   &H00C00000&
         Height          =   330
         Left            =   1170
         TabIndex        =   3
         Top             =   405
         Width           =   600
      End
   End
End
Sub allproj_Click ()
    projFlag = 2
End Sub

Sub canbtn_Click ()
    Unload printselect
End Sub

Sub Form_Load ()
    oneproj.value = -1
    scrsel.value = -1
    projFlag = 1
    printflag = 1
End Sub

Sub okbtn_Click ()
    screen.mousepointer = 11
    Load report1
End Sub

Sub oneproj_Click ()
    projFlag = 1
End Sub

Sub prtsel_Click ()
    printflag = 2
End Sub

Sub scrsel_Click ()
    printflag = 1
End Sub